CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swags_z.zip/SCREEN.SWG/0039_Finding Number of Rows.pas

Pascal/Delphi Source File | 1993-11-02 | 633b | 32 lines

{
SEAN PALMER

> Does anyone have any quick Procedures For detecting the number of
> lines as passed through the Dos "MODE" command? Ie, 25 lines, 43 or 50
> line mode? This way, when Programming a door, I can place the status
> line on the correct area of screen.

Try this, anything that correctly updates the bios when it changes modes
should be reported correctly.
}

Var
  rows : Byte;

Function getRows : Byte; Assembler;
Asm
  mov ax, $1130
  xor dx, dx
  int $10
  or  dx, dx
  jnz @S   {cga/mda don't have this fn}
  mov dx, 24
 @S:
  inc dx
  mov al, dl
end;

begin
  writeln(getrows);
end.